/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / System7 tools / Frontier / DropLock⁄Unlock 1.0.sit / dropLock_Unlock ƒ / dropUnlock.rsrc / scpt_128

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 ec 00 02 00 00 | 00 c0 00 00 03 3b 00 08 |........|.....;..|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 07 20 00 00 a6 15 | ab e0 a9 f8 af 8d 00 00 |... ....|........|
|00000050| 00 3d 00 00 00 29 00 4a | 01 dd 02 25 4c 41 4e 44 |.=...).J|...%LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 64 72 6f 70 |........|....drop|
|00000080| 55 6e 6c 6f 63 6b 20 64 | 72 6f 70 6c 65 74 0d 56 |Unlock d|roplet.V|
|00000090| 65 72 73 69 6f 6e 20 31 | 2e 30 2c 20 43 6f 70 79 |ersion 1|.0, Copy|
|000000a0| 72 69 67 68 74 20 a9 31 | 39 39 34 2c 20 4a 2e 20 |right .1|994, J. |
|000000b0| 43 69 63 69 6e 65 6c 6c | 69 2e 20 20 41 6c 6c 20 |Cicinell|i.  All |
|000000c0| 52 69 67 68 74 73 20 52 | 65 73 65 72 76 65 64 2e |Rights R|eserved.|
|000000d0| 0d 09 46 72 69 2c 20 4d | 61 79 20 31 33 2c 20 31 |..Fri, M|ay 13, 1|
|000000e0| 39 39 34 20 61 74 20 34 | 3a 31 32 3a 33 35 20 41 |994 at 4|:12:35 A|
|000000f0| 4d 20 62 79 20 4a 47 43 | 0d 09 55 6e 6c 6f 63 6b |M by JGC|..Unlock|
|00000100| 73 20 66 69 6c 65 73 20 | 61 6e 64 20 66 69 6c 65 |s files |and file|
|00000110| 73 20 69 6e 73 69 64 65 | 20 66 6f 6c 64 65 72 20 |s inside| folder |
|00000120| 6f 72 20 64 69 73 6b 73 | 2e 0d 0d 62 75 6e 64 6c |or disks|...bundl|
|00000130| 65 20 c7 73 65 74 20 75 | 70 20 66 6f 72 20 64 65 |e .set u|p for de|
|00000140| 62 75 67 67 69 6e 67 0d | 09 73 79 73 74 65 6d 2e |bugging.|.system.|
|00000150| 64 72 6f 70 6c 65 74 2e | 70 61 74 68 20 3d 20 22 |droplet.|path = "|
|00000160| 48 44 38 30 3a 41 70 70 | 6c 69 63 61 74 69 6f 6e |HD80:App|lication|
|00000170| 73 3a 52 65 74 72 6f 73 | 70 65 63 74 20 c4 3a 22 |s:Retros|pect .:"|
|00000180| 0d 09 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 |..system|.droplet|
|00000190| 2e 63 6c 6f 73 65 64 6f | 77 6e 20 3d 20 66 61 6c |.closedo|wn = fal|
|000001a0| 73 65 0d 09 73 79 73 74 | 65 6d 2e 64 72 6f 70 6c |se..syst|em.dropl|
|000001b0| 65 74 2e 73 74 61 72 74 | 75 70 20 3d 20 74 72 75 |et.start|up = tru|
|000001c0| 65 0d 0d 69 66 20 73 79 | 73 74 65 6d 2e 64 72 6f |e..if sy|stem.dro|
|000001d0| 70 6c 65 74 2e 63 6c 6f | 73 65 64 6f 77 6e 0d 09 |plet.clo|sedown..|
|000001e0| 6d 73 67 20 28 22 22 29 | 0d 09 46 69 6e 64 65 72 |msg ("")|..Finder|
|000001f0| 2e 62 72 69 6e 67 54 6f | 46 72 6f 6e 74 20 28 29 |.bringTo|Front ()|
|00000200| 0d 09 72 65 74 75 72 6e | 0d 0d 69 66 20 73 79 73 |..return|..if sys|
|00000210| 74 65 6d 2e 64 72 6f 70 | 6c 65 74 2e 73 74 61 72 |tem.drop|let.star|
|00000220| 74 75 70 0d 09 6d 73 67 | 20 28 22 55 6e 6c 6f 63 |tup..msg| ("Unloc|
|00000230| 6b 69 6e 67 20 46 69 6c | 65 28 73 29 2e 2e 2e 22 |king Fil|e(s)..."|
|00000240| 29 0d 0d 6f 6e 20 75 6e | 6c 6f 63 6b 46 69 6c 65 |)..on un|lockFile|
|00000250| 73 20 28 66 29 0d 09 69 | 66 20 66 69 6c 65 2e 69 |s (f)..i|f file.i|
|00000260| 73 41 6c 69 61 73 20 28 | 66 29 0d 09 09 66 20 3d |sAlias (|f)...f =|
|00000270| 20 66 69 6c 65 2e 66 6f | 6c 6c 6f 77 41 6c 69 61 | file.fo|llowAlia|
|00000280| 73 20 28 66 29 0d 09 09 | 69 66 20 66 20 3d 3d 20 |s (f)...|if f == |
|00000290| 22 22 0d 09 09 09 64 69 | 61 6c 6f 67 2e 61 6c 65 |""....di|alog.ale|
|000002a0| 72 74 20 28 22 41 6c 69 | 61 73 20 6e 6f 74 20 63 |rt ("Ali|as not c|
|000002b0| 6f 6e 6e 65 63 74 65 64 | 20 74 6f 20 61 6e 79 74 |onnected| to anyt|
|000002c0| 68 69 6e 67 21 22 29 0d | 09 09 09 72 65 74 75 72 |hing!").|...retur|
|000002d0| 6e 0d 09 69 66 20 66 69 | 6c 65 2e 69 73 46 6f 6c |n..if fi|le.isFol|
|000002e0| 64 65 72 20 28 66 29 20 | 6f 72 20 66 69 6c 65 2e |der (f) |or file.|
|000002f0| 69 73 56 6f 6c 75 6d 65 | 20 28 66 29 0d 09 09 66 |isVolume| (f)...f|
|00000300| 69 6c 65 6c 6f 6f 70 20 | 28 67 20 69 6e 20 66 2c |ileloop |(g in f,|
|00000310| 20 69 6e 66 69 6e 69 74 | 79 29 0d 09 09 09 69 66 | infinit|y)....if|
|00000320| 20 6e 6f 74 20 66 69 6c | 65 2e 69 73 42 75 73 79 | not fil|e.isBusy|
|00000330| 20 28 67 29 0d 09 09 09 | 09 66 69 6c 65 2e 75 6e | (g)....|.file.un|
|00000340| 6c 6f 63 6b 20 28 67 29 | 0d 09 65 6c 73 65 20 c7 |lock (g)|..else .|
|00000350| 20 75 6e 6c 6f 63 6b 20 | 69 6e 64 69 76 69 64 75 | unlock |individu|
|00000360| 61 6c 20 66 69 6c 65 2e | 0d 09 09 69 66 20 6e 6f |al file.|...if no|
|00000370| 74 20 66 69 6c 65 2e 69 | 73 42 75 73 79 20 28 66 |t file.i|sBusy (f|
|00000380| 29 0d 09 09 09 66 69 6c | 65 2e 75 6e 6c 6f 63 6b |)....fil|e.unlock|
|00000390| 20 28 66 29 0d 75 6e 6c | 6f 63 6b 46 69 6c 65 73 | (f).unl|ockFiles|
|000003a0| 20 28 73 79 73 74 65 6d | 2e 64 72 6f 70 6c 65 74 | (system|.droplet|
|000003b0| 2e 70 61 74 68 29 0d 84 | 00 00 00 00 00 84 00 00 |.path)..|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|000003d0| 00 00 00 00 00 84 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 80 00 00 |........|........|
|000003f0| 00 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 00 00 00 00 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000410| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000420| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000450| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000460| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000470| 00 80 00 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+